home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / MPW Oberon 2.1168 / Auxiliary Modules / MathL.mod < prev    next >
Encoding:
Text File  |  1995-10-30  |  2.0 KB  |  73 lines  |  [TEXT/MPS ]
  1. (*
  2.     File:        MathL.mod
  3.  
  4.     Desc:        Interface between MPW-Oberon and the MC68881
  5.     
  6.     Author:        Oliver Schirpf
  7.     
  8.     Date:        29.06.1994
  9.     
  10.     
  11. *)
  12. MODULE MathL;
  13.  
  14. IMPORT SYSTEM;
  15.     
  16. (*$Parameter ACos(FP0):FP0 *)
  17. PROCEDURE ACos*(x: LONGREAL):LONGREAL;INLINE $F200, $001C;
  18.  
  19. (*$Parameter ASin(FP0):FP0 *)
  20. PROCEDURE ASin*(x: LONGREAL):LONGREAL;INLINE $F200, $000C;
  21.  
  22. (*$Parameter ATan(FP0):FP0 *)
  23. PROCEDURE ATan*(x: LONGREAL):LONGREAL;INLINE $F200, $000A;
  24.  
  25. (*$Parameter ATanH(FP0):FP0 *)
  26. PROCEDURE ATanH*(x: LONGREAL):LONGREAL;INLINE $F200, $000D;
  27.  
  28. (*$Parameter Cos(FP0):FP0 *)
  29. PROCEDURE Cos*(x: LONGREAL):LONGREAL;INLINE $F200, $001D;
  30.  
  31. (*$Parameter CosH(FP0):FP0 *)
  32. PROCEDURE CosH*(x: LONGREAL):LONGREAL;INLINE $F200, $0019;
  33.  
  34. (*$Parameter Exp(FP0):FP0 *)
  35. PROCEDURE Exp*(x: LONGREAL):LONGREAL;INLINE $F200, $0010; (* e^X *)
  36.  
  37. (*$Parameter ExpM1(FP0):FP0 *)
  38. PROCEDURE ExpM1*(x: LONGREAL):LONGREAL;INLINE $F200, $0008; (* e^x-1 *)
  39.  
  40. (*$Parameter Ln(FP0):FP0 *) 
  41. PROCEDURE Ln*(x: LONGREAL):LONGREAL;INLINE $F200, $0014; (* log(e) (x) *)
  42.  
  43. (*$Parameter LnP1(FP0):FP0 *) 
  44. PROCEDURE LnP1*(x: LONGREAL):LONGREAL;INLINE $F200, $0006; (* log(e) (x+1) *)
  45.  
  46. (*$Parameter Log10(FP0):FP0 *)
  47. PROCEDURE Log10*(x: LONGREAL):LONGREAL;INLINE $F200, $0015; (* log(10) (x) *)
  48.  
  49. (*$Parameter Log2(FP0):FP0 *)
  50. PROCEDURE Log2*(x: LONGREAL):LONGREAL;INLINE $F200, $0016; (* log(2) (x) *)
  51.  
  52. (*$Parameter Power10(FP0):FP0 *)
  53. PROCEDURE Power10*(x: LONGREAL):LONGREAL;INLINE $F200, $0012; (* 10^X *)
  54.  
  55. (*$Parameter Power2(FP0):FP0 *)
  56. PROCEDURE Power2*(x: LONGREAL):LONGREAL;INLINE $F200, $0011; (* 2^X *)
  57.  
  58. (*$Parameter Sin(FP0):FP0 *)
  59. PROCEDURE Sin*(x: LONGREAL):LONGREAL;INLINE $F200, $000E;
  60.  
  61. (*$Parameter SinH(FP0):FP0 *)
  62. PROCEDURE SinH*(x: LONGREAL):LONGREAL;INLINE $F200, $0002;
  63.  
  64. (*$Parameter Sqrt(FP0):FP0 *)
  65. PROCEDURE Sqrt*(x: LONGREAL):LONGREAL;INLINE $F200, $0004;
  66.  
  67. (*$Parameter Tan(FP0):FP0 *)
  68. PROCEDURE Tan*(x: LONGREAL):LONGREAL;INLINE $F200, $000F;
  69.  
  70. (*$Parameter TanH(FP0):FP0 *)
  71. PROCEDURE TanH*(x: LONGREAL):LONGREAL;INLINE $F200, $0009;
  72.  
  73. END MathL.